-- background: 4734 from stack: in.0
-- bmap block id: 5283
-- flags: 4000
-- background id: 0
-- name: User Analysis
----- HyperTalk script -----
-- HANDLERS: putMeInList, getMeOutOfList, openCard, goSolution,
--           determineSoftware, fixBox, showMyStuff, HideMyStuff

-- FUNCTIONS: whichItem, stripEmptyOnes

on putMeInList buttonName
  global gSoftwareList
  if gsoftwareList is empty then put "," into gSoftWareList
  put buttonName  &  "," after gSoftwareList
end putMeInList

on getMeOutOfList buttonName
  global gSoftwareList
  if buttonName is in gSoftwareList then DELETE item whichItem(gSoftwareList,buttonName) of gSoftwareList
end getMeOutOfList

function whichItem theText,which
return the number of items in char 1 to offset(which,theText) of theText
end whichItem

on openCard
  fixBox
end openCard

on goSolution whichCategory,whichSolution
  put "SOL" & whichCategory & whichSolution into cardName
  go card cardName
end goSolution

on determineSoftware
  global gSoftwareList,InstoreReturnPath
  put the short name of this cd into InstoreReturnPath
  put "," into gSoftwareList
  repeat with i = 2 to the number of btns -- solution btn is button 1
    set cursor to busy
    if the hilight of btn i then
      put the short name of btn i after gSoftwareList
      put "," after gSoftwareList
    end if
  end repeat
  --delete last char of gSoftwareList -- kill final ","
end determineSoftware

on fixBox
  global gSoftWareList
  --if gSoftWareList is empty OR gSoftwareList is "," then exit fixBox
  repeat with x = 2 to the number of cd btns
    set the hilite of cd btn x to ","&the short name of cd btn x&"," is in gSoftWareList
  end repeat
end fixBox

function stripEmptyOnes list
put "," into holder
repeat with i = 1 to the number of items in list
  set cursor to busy
  if item i of list is not empty then
    put item i of list after holder
    put "," after holder
  end if
end repeat
return holder
end stripEmptyOnes

on showMyStuff
  repeat with i = 1 to 7
    set cursor to busy
    do "show card field" && i
  end repeat
  exit to HyperCard
end showMyStuff

on hideMyStuff
  repeat with i = 1 to 7
    set cursor to busy
    do "hide card field" && i
  end repeat
end hideMyStuff


-- part 1 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=0 top=0 right=28 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 0
-- line height: 22
-- part name: Title


-- part 3 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=11 top=304 right=329 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: index


-- part 5 (button)
-- low flags: 00
-- high flags: C002
-- rect: left=0 top=325 right=342 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return to Main Menu
----- HyperTalk script -----
on mouseUp
  go card "Main menu"
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=76 right=139 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 18
-- part name: Instructions


-- part 10 (button)
-- low flags: 00
-- high flags: C002
-- rect: left=172 top=325 right=342 bottom=384
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return to Previous Screen
----- HyperTalk script -----
on mouseUp
  goSubMenu (char 4 of short name of this card)
end mouseUp